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Transferred from P.S* #1912 3553 

Sec. lcl Changed some names of program 
parameters 

1.2 Moved reinstate info to above limit rep 

2.1.3 Changed L TYPE BIT assignment 

2.1.4 Changed method of Address calculatic 
2.2.1 Added Segment # 

2.2.4 Changed DATA TYPE BIT Assignment 
2.2.8 Changed Indexing BIT Assignment 

2.2.10 Added ASCII flag description 

3.0 Deleted CNZ (Compare for N Zero) 

instruction 

3.0 through 3.4.6 Added ASCII code sensiti 

where necessary (see section 2.2.10) 
Deleted CONVERT SIGN Instruction. 

3.1.5 Restricted MUL result field to 4-bit 
format 

3.1.5 Required C0PX2 data length be equal 
to the sum of the lengths of the ope 

3.1.6 Restricted DIV result field to 4-bit 
format . 

3.1.6 Required COPXl data length be equal 
to the difference of the lengths of 
operands . 

3.2.11 Added MVT (Move Translate) instruct 

3.2.12 Changed order of 0PND2 and C0PX2. 

3.2.13 Deleted SKIP Forward Destination op 
3.4 and 3.4.6 Reversed BRANCH Taken-Not 

Taken Condition 

i Changed Relational Condition Bit As 

3.4.3 Generalized ZRO to full relational t 

3.4.4 Generalized SPA to full relational t 

Sec. 1 Changed typical program memory layoi 

1.1 Major change of program parameters. 

2.0 Changed OP from 8 to 9 bits. 

2.1.5 Added In-Line-COP Information 

2.2 Deleted Edit Mask Address. Added Tab! 

2.2.2 Changed BASE REGISTER to Base of 
Data Segment. 
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Cont . 

2*2,6 6 . 2.2.7 <£ 2.2.8 Changed method of ir 
number of subscripts/indexes. 

2.2.76, Added out of range-condition on sub 

2 . 2.8 scripting and indexing 

2.2.9 Added description of Table Bound. 
Deleted Edit Mask Address descripti 

3.0 Added DADDR in Edit. Moved N varia 

and changed BADDR to BDISP in GTD . 
Added BOF, OFY, CRPT, COMM, FCMP, C 
and LDS operators. 

3.1.6 Added: Division by zero results in 

overflow toggle being set. Dividen 
not quotient field must be 4-bit. 

3.2.16. .3 6 . .11 Added statement on overla 
of fields. 

3.10 SMVN- C0PX1 changed to OPNDl. 

3.2.13 Restricted destination field of Edi 
to 8 -bit format 

3.2.13.1 Added DADDR to edit instruction. 

3.2.13.2 Corrected bit type from 10 to 01. 

3.2.13.3 S=0 Changed to S=1 throughout add 
S=0, T =8 and S=l, T=9 to Insert on 
Minus . 

3.3 Major change to branch types. 

3.3.2 6 . .3 Added BOF and OFL. 

3. 3. 2 . 8 GTD-Moved N variant. 

3.3.4 Major change in branch types. 

3.4.7 Added CRPT. 

3.5.1, 3.5.2, 3.5.3, 3.5.4 Added COMM, 

CNV , LDS 

Sec 1 Deleted address store and added 
alter table to table. 

1.1 Changed BDISPB to BDISPl 

2.2 Changed min size of seq # container 
from 1 to 0. Specified max size of 
LENB as 13 and 14 for 8 & 4 bit data r 

2.2.7 Specified subscript value of < 0 re- 
sults in error comm. Added overflow 
is ignored if sum of subscript values 
exceed 24 bits. 

2.2.8 Added sign position to index registc 
A detection when it is negative. 
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Cont 1 d. 
; 11-28-72 


Sec. 3.0 Added OP code and changed some 
mnemonics 

3.1 Changed no restriction as to type to 
restriction as to type are specified 
under description of various operations 

3.1.6 Changed dividend from OPND to COPX op 

3.2.10 Scale factor length must be < dest. 
field length if V=0 and < source field 
length if V=l. 

3.2.11 Added COPXl to describe translation 
table. 

3.2.12 Examine: deleted 

3.2.13 Deleted S=0, T=8, and S=l, T=9 entri 

3.2.14 <5, 3.2.15 Added MCF & MCE operators 

3.3 Deleted self -relative branches. Change 

format of BADDR 

3.3.4 PERF; Changed format of stack entry 

3.3.8 GOTD: Changed name of BDISP to DBADDR 
and changed format 

3.4 Specified order of operands 

3.4.3 CMPX: Changed binary compare to 
algebraic. Specified order of operands 

3.4.4 CMPS: Specified order of operands. 

3.4.5 CMPC: Restricted to UA. 

3.4.7 Deleted req*t that OPNDl size be larg 
than 2 . 

3.5.1 Address stored as absolute instead of 
relative. 

3.5.2 LDCR name changed from FCMP 

; 3.5.3 CNV: Changed operand from OPND to COP 

3.5.4 MAKP name changed from LDSN. DSEGN 
argument changed to COPXl. 

Sec 2.2.10, 3.0, 3.2.5, 3.2.6, 3.2.7, 3.2.8 
3.4.6: MMVA , MMVS , MMVN , MMVZ and CMPM 
operators deleted . 

3.2.9 Thru 3.2.15 renumbered to 3.2.5 thru 
3.2.11. 

3.2.8 Added Examine operator. 

3.2.11 Corrected Tally register to C0PX3 . 

3.4.5 Specified sign position is ignored fc 
Signal 8-bit format in the numeric test 

3.4.7 renumbered to 3.4.6 
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general 



81700 COBOL 
between the 
Interpreter • 



S-Language provides the virtual machine interface 
code generated by the COBOL Compiler and the COBOL 
This specification describes the format of COBOL 



S-instruct ions and then explains each operator as a member of one 
of the following classes: 



ARITHMETIC 
DATA MOVEMENT 
BRANCHING 

CONDITIONAL BRANCHING 
MISCELLANEOUS 



RELATED PUBLICATIONS 



TITLE NUMBER 



B1700 Systems COBOL Reference Manual 
B1700 COBOL Compiler 
B1700 COBOL Compiler Logic 



1057197 

CP.S*> 2212 5314 
(P,S.) 2212 5397 
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All COBOL S- language programs have associated with them# a base 
register and a limit register. The area cetween the base and the 
limit is to be used as data space only. All program code# organized 
in segment form# is stored at any available location in memory# 
according to the memory management algorit-ms used by the B1700 
operating system. 



The data space includes a non-over layab le area which contains the 
COP table and various other parameters si.cn as Edit Masks and 
Record Areas. 



Various parameters# necessary for the running of the S~Language 
object code and maintained by the MCP# are stored beyond the Limit 
Register in the Run Structure Nucleus ( RSN }. 



A typical COBOL program layout in memory is as follows: 
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BASE REGISTER >- 

* I EDIT TABLE (8 CHRS5 I 

* j - K— 1ST ENTRY CC0PX=1) 

* ! COP TABLE l 

* I l<— DATA SEGMENT ZERO 

,* I SPECIAL REGISTERS I * BASE 

■» | | * 

* I OATANAHE MONITOR I * 

* I SYMBOLS ! * 

ft f § * 

STATIC MEMORY I EOIT MASKS I * 

* | —| * 

* I NONOVERLAYABLE USER’S 8 DATA SEGMENT ZERO 

* I DATA AREA 1 * 

* I i * 

* I TRASHC INTERMEDIATE RESULTS) 1 * 

* | • | * 

* I ALTER TABLE (IF ANY) I * 

* i _ i <-*ST AC K BASE 

* I STACK I * 

*i — - — 1 < — STACK LIMIT 

* f t 

DYNAMIC MEMORY <* I OVERLAYABLE f 

* I USER DATA AREA t 

LIMIT REGISTER^*! — — — EXTEND ABLE LIMIT REG. 

t REINSTATE INFO I (BOJ ATTRIBUTE) 

I & RUN STRUCTURE i 



i 

DATA DICTIONARY I 

1 

S-CODE I 

f 



FIGURE 1-1* COBOL PROGRAM LAYOUT 
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TALLY 


1 
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CMP 
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DATE (JULIAN) 
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9(5 ) 


CMP 


1 
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( YYDOD) 


i 






9 




18 
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TIME ( Hh’HMSST 5 
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9(7 > 


CMP 


! 




25 
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TODAYS-DATE 
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9(6) 


CMP 


f 
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( MMDDYY) 


l 






1 




31 
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TODAYS-NAME 
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X ( 9 ) 




1 

mm mm 



FIGURE 1-2: SPECIAL REGISTERS 
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PROGRAM PARAMETERS 



The parameters pertaining to a particular program are listed below. 
The number of bits used to contain the parameter appears in 
parentheses following the parameter name. 

BDISPB1 ( 5) BRANCH DISPLACEMENT CONTAINER SIZE ♦ 1 

OSEGZ 124 > BASE OF DATA SEGMENT ZERO 

STACK-POINTER (24 > BASE ADDRESS OF STACK 

STACK-SIZE ( 5) SIZE OF THE STACK 

COP-8 ASE (24) BASE ADDRESS OF COP TABLE 

COPB (12) COP ENTRY CONTAINER SIZE 

SEGB C 5) DATA SEGMENT NUMBER CONTAINER SIZE 

DISPB C 5) DATA DISPLACEMENT CONTAINER SIZE 

LEN3 ( 5) DATA LENGTH CONTAINER SIZE 

C0PX3 ( 5) COP INDEX CONTAINER SIZE 
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CONTAINER SIZE 



Container size is a field size (in number of bits) necessary to 
contain the maximum value required for that field. For example: A 
container size of five bits atlous a field value to house 32 bit 
addresses (0-31). 
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S-INSTRUCTION FORMAT 



Each COBOL S-I nstruct ion consists of an S-operator followed by 
arguments consisting of a variable number of bits. The format and 
interpretation of these arguments is specified by the S-operator 
and is described in detail by the specification of the individual 
operators. An example of one such instruction format is illustrated 
below • 



OP1 0P2 OP ND COPX 

C 3 > (6) (VARIABLE! CCOPXB) 

f I 

( 1 — INDEX INTO COP TABLE 

I 

I— INDEX INTO COP TABLE OR LITERAL 



S-OPERATORS 



The most frequently used S-operators are encoded in a three bit 
S-operator denoted as 0P1. If 0P1 is equal to seven* the operator 
is encoded in the next six bits denoted as 0P2. If OP1 is less than 
seven* OP2 is omitted. 



OP NO 



An operand is normally referenced indirectly through a table 
containing the attributes of the operand. An argument which 
references an operand in this manner is denoted as COPX. An operand 
is either contained in the instruction as a literal or is 
referenced indirectly through the table. An argument of this type 
is denoted as OPND. The first bit of OPND is denoted as LITFLG and 
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is used to indicate a literal string or COPX as follows: 



------ ♦ 

£ — > I 1 I LITERAL STRING t 

I * 

LITFLG 

f ♦— + — — —— — — — + 

I — >t 0 I COPX i 



LITERAL STRING 



When LITFLG specifies a literals the litoral string# which includes 
the literal type (LTYPE)# the literal length ( LLGTH ># and the 
literal CLSYMB) itself in that order# is included in the code 
stream immediately following the LITFLG. The format is as follows: 



LTYPE LLGTH1 LLGTH2 LSYMB 
(2) ( 3 ) C 8 ) (variable) 



Note: LLGTH2 present if LLGTHi equal zero 

LTYPE 



00=Unsigned 4-BIT 
01=Unsigned 8-8IT 
10=Signed 4-BIT (sign is MSD) 
ll=Reserved 



The length of the literal expressed in binary is encoded in LLGTHI 
and LLGTH2- If the length of the literal is less than eight digits 
or characters# its length is encoded in LLGTHI? and LLGTH2 is 
omitted. If the length of the literal is greater than or equal to 
eight digits or characters# its length is encoded in LLGTH2 and 
LLGTHI is set to zero. The maximum literal length is 255 digits or 
characters excluding the sign. 
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CURRENT OPERAND INDEX (COPX) 



The argument COPX is an index value used to index into the current 
operand table (COP table). The number of bits (COPXB) used to index 
into the COP table is a function of the maximum number of COP tabic 
entries required for the source program. For example* a COP table 
consisting of between 512 and 1023 entries would require ten bits. 



The address of an entry is calculated by multiplying the value 
"COPX” by the value "COPS" and then adding the result to the base 
address of the COP table. 



A COPX value of zero specifies that the COP table information is 
contained in-line in the S-Instruct i on itself rather than in the 
COP table. (See next section.) 

Note: The base address of the CGP table points to an unused 
entry. 



IN-LINE COP INFORMATION 



The format for in-line COP information differs from its COP table 
format (See "CURRENT OPERAND TABLE”) when subscripting or indexing 
is required. 
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The format for in-line COP information is as follows: 



DATA 


ADDRESS 


DATA 


SUBSCRIPT-OR- 


DATA 


ASCII 


SEG.ff 


DISPL. 


LENGTH 


INDEX-FLAG 


TYPE 


FLAG 


CSEGB) 


CDISPB) 


CLENB) 


Cl) 


C 2 ) 


Cl) 



NO. OF SUBSCRIPT-FLAG C0PX1 SUBSCRIPT C0PX2 SUBSCRIPT 

SUBSCRIPTS FACTOR 1 FACTOR 2 

OR INDEXES 

(2) (1) CCOPXB) CLENB > CCOPXB) CLENB) 



C0PX3 SUBSCRIPT TABLE 
FACTOR 3 BOUND 
CCOPXB) CLENB) CDISPB) 



Notes : 



1. None of the sub script ing/indexing information Call entries 
following the ASCII flag) is present unless the 
subset ipt-or-inde x-f l ag equals one. 

2. A COPX for each index value# or a COPX/subscr i pt factor 
pair for each subscript value# must be present as indicated 
by the value of number of subscripts or indexes: 

00 = One 

01 = Two 

10 = Three 

11 = Reserved 

3. C0PX1 # C0PX2# and C0PX3 may be in-line entries but must not 
be subscripted or indexed. 
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CURRENT OPERAND TABLE (COP) 



The COP table consists of a set of entries* each of which contains 
the attributes of a variable. The width of one entry is a function 
of the source program and is determined by the number of bits 
required to express its attributes (segment number* displacement* 
length* subsc r i p t-or-i ndo x-f l ag* data type and ASCII flag). 

When the attributes exceed one entry* mulipte entries are used to 
accommodate the additional information* Any reference to a multiple 
entry attribute points to the first of its entries. 

The format of an entry in the COP table is as follows; 



i< 



COPB 



>! 



DATA 


ADDRESS 


DATA 


SUBSCRIPT-OR- 


DATA 


ASCII 


SEG # 


OISPL. 


LENGTH 


INDEX-FLAG 


TYPE 


FLAG 


(SEGB) 


(DISPB) 


(LENS) 


Cl ) 


(2) 


(1) 



NO. OF 




SUBSCRIPT-FLAG 


SUBSCRIPT 


SUBSCRIPT 


SUBSCRIPT TABLE 


SUBSCRIPTS 




FACTOR 1 


FACTOR 2 


FACTOR 3 


BOUND 


OR INDEXES 

(2) 


(1) 


CLENB) 


( LENB ) 


(LENB) 


(DISPB) 


















! 


1 


f 


! 


i 


1 




1 


1 


1 


S 


t 


1 








1 


1 


f 


I 






1 


« 


l 


i 


1 






PRESENT IF 


1 


PRESENT IF 


i 


PRESENT IF 






SUBSCR IPT-OR- 


5 


NUMBER OF 


i 


SUBSCRIPT- 






I NDEX-FL AG 


i 


SUBSCRIPTS 


i 


INDEX-FLAG 






= 1 


i 


= 01 OR 10 


i 


= 1 


00 = 1 PRESENT 

01 = 2 OR-INDEX 

10 = 3 

11 = RESERVED 


IF SUBSCRXPT- 
-FLAG = 1 


i 

PRESENT IF NUMBER 
OF SUBSCRIPTS = 1 
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SEGMENT NUMBER 



Segment number is expressed in binary and specifies the data segment 
number of the operand. The container size CSEGB) is a function of 
the maximum number of data segments specified in the source 
program. The range of the segment number container size CSEGB) is 
0 through 18. If it is zero# then there is no segment number 
container for that particular program# that program has no 

segmented Covertayabie) data and all data references are to data 

segment zero# the non-over l ay abl e data segment. 



DISPLACEMENT 



Displacement is expressed in binary and specifies the digit 
displacement of the data from the base of the data segment. All 
data is stored beginning at an address which modulo 4-8IT must 
equal zero. The container size CDISPB) is a function of the maximum 
data displacement specified in the source program. The range of the 
displacement container size CDISPB) is 1 through 21. 



DATA LENGTH 



Data length is expressed in binary and specifies the number of 
digits or characters in the data item# excluding the sign. The 
container size CLENB) is a function of the maximum length specified 
in the source program® The range of the data length container size 
CLENB) is 1 through 14# however# the largest data item allowed is 
8# 1 9 1 8-BIT units or 16#383 4-BIT units. 



DATA TYPE 



Data type specifies the type of data as follows: 
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00 = Unsigned 4-BIT 

01 = Unsigned 8-BIT 

10 = Signed 4-BIT (sign is MSD) 

11 = Signed 8-8IT (sign over MSD) 



SUBSCRIPT-OR- INDEX-FLAG 



The subscr ipt-or-index-f tag bit is true to indicate subscripting or 
indexing and false otherwise- When true the next entry(s) contains 
the necessary subscripting or indexing information® 



NUMBER OF SUBSCRIPTS OR INDEXES 



When indexing or subscripting is indicated by the subscript-or- 
index-ftag* the number of subscripts or indexes required for the 
variable is specified as follows: 

00 * One 

01 = Two 

10 = Three 

11 = Reserved 



The bit immediately following this field indicates the appropriate 
operation: indexing or subscripting® 

0 = Index 

1 = Subscript 



SUBSCRIPT FACTORS 



Subscripting requires one to three fields* LENB bits in length* 
containing the binary factor by which each subscript value is to be 
multiplied to obtain the proper digit address. The factor is the 
digit displacement between elements of the table. The value one is 
subtracted from the subcript value prior to multiplying by the 
factor. The subscript value may be signed. 
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If the subscript value is zero or negative# or if the final sum of 
the multiplied subscriot values exceeds the table bound# an error 
communicate will be issued- 



If the binary equivalent of the multiplied subscript value or the 
sum of the multiplied subscript values exceeds 24 bits# overflow is 
i gnor ed « 



A COPX for each subscript value immediately follows the primary COPX 
in the S-Instruction. A subscript variable must not itself be 
subscripted or indexed. 

Notes Literal subscript values are optimized by the compiler by 
building s new descriptor in-line in the S-Instruction. 



INDEXING 



When indexing is indicated# a COPX for each index value Cup to 
three) immediately follows the primary COPX in the S-Instruction. 
An index variable must not itself be indexed or subscripted* 



An index vatue is contained in a 20 BIT field. The value consists of 
a 4-BIT sign followed by six 4-BIT decimal digits. The value is 
converted to binary and combined with the binary data address at 
execution time. 



If any index value is less than zero or if the sum of the index 
values exceeds the table bound# an error communicate will be 
issued. 



TABLE BOUND 



Table bound is a binary value used to specify the maximum 
permissible digit displacement from a table base for subscripting 
and indexing. Its container size is DISPB. 
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ASCII FLAG 



The ASCII flag bit 


of the destination field influences the execution 


of certain code 


sensitive 


S~languagc instructions. These 


instructions are: 






ADD 


MV A 


CAT C MPA 


SUB 


MVS 


S MV N CMPS 


INC 


MV N 


MVT 


DEC 


MV Z 




I NCI 






DEC 1 






DIV 






DIVS 







The ASCII flag bit does not influence the execution of the following 
code sensitive instructions in which EBCDIC is assumed: 



EDIT MICF 
EDTE MICE 
CMPC 
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INSTRUCTION SET 



ARITHMETIC. 



NAME 


MNEMONIC 


OP 


ARGUMENTS 


INCREMENT 


INC 


02 


OPNDU 


C0PX1 




ADO 


ADD 


03 


OPNDi* 


C0PX1* 


C0PX2 


DECREMENT 


DEC 


09 


OPNDi* 


C0PX1 




SUBTRACT 


SUB 


10 


OPNDIj. 


0PND2* 


C0PX1 


MULTIPLY 


MULT 


11 


0PND1* 


COPXl* 


C0PX2 


DIVIDE 


DIV 


12 


0PND1* 


CQPX1* 


CQPX2 


DIVIDE SPECIAL 


DIVS 


16 


0 P N D 1 * 


C0PX1* 


C0PX2 


INCREMENT BY ONE 


INC 1 


13 


C0PK1 






DECREMENT BY ONE 


DEC! 


14 


C0PX1 






DATA MOVEMENT 












NAME 


MNEMONIC 


OP 


ARGUMENTS 


MOVE ALPHANUMERIC 


MVA 


00 


0PND1# 


C0PX1 




MOVE SPACES 


MVS 


15 


C0PX1 






MOVE NUMERIC 


MVN 


01 


0PND1# 


C0PX1 




MOVE ZEROS 


MV Z 


22 


C0PX1 
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CONCATENATE 


CAT 


SCAL 


ED MOVE NUMERIC 


SMVN 


EXAMINE 


EXAM 


MOVE 


TRANSLATE 


MVT 


EDIT 




EDIT 


EDIT 


WITH EXPLICIT MASK 


EDTE 


MICR 


FORMAT 


MICE 


MICR 


EDIT 


MICE 



BRANCHING 

NAME 


MNEMONIC 


BRANCH ON OVERFLOW 


BOFL 


SET OVERFLOW 


SOFL 


BRANCH UNCONDITIONALLY 


BUN 


PERFORM ENTER 


PERF 


PERFORM EXIT 


PX IT 


ENTER 


NTR 


EXIT 


XIT 


GO TO DEPENDING 


GOTO 
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32 N# C0PX1* OPNDO*--.* 

OPNDN 



28 


0PND1* 


COPXlr 


V» SCL 


A A 


H*. T* 


COPXlp 


OPNDii* 




C0PX2p 


0PND2 




4 r 


OPNDIp 


C0PX1* 


C0PX2 


17 


OPNDIp 


C0PX1# 


DADDR 


21 


GPNDIp 


COPXlp 


MASK 


48 


COPXIp 


C0PX2 




4 9 


C0PX1* 


C0PX2* 


C0PX3 



OP 


ARGUMENTS 


23 


V» BAODR 


07 


V 


03 


BADDR 


06 


Kp BAODR 


34 


K 


18 


BADDR 


19 




39 


COPXIp Lp DBADDROp..., 



OBADDRL 
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ALTERED GO TO PARAGRAPH 


GPAR 


35 


DADDR 


ALTER 


ALTR 


36 


DADDRp ACON 



CONDITIONAL BRANCHING 



NAME 


MNEMONIC 


OP 


ARGUMENTS 


COMPARE ALPHANUMERIC 


CMP A 


04 


OPNDIp 


COPXIp Rp 








BAODR 




COMPARE NUMERIC 


CMPN 


05 


OPNDIp 


COPXIp Rp 








BA DDR 




COMPARE FOR ZEROS 


CMPZ 


27 


COPXIp 


Rp BADOR 


COMPARE FOR SPACES 


CMPS 


37 


COPXIp 


Rp BADOR 


COMPARE FOR CLASS 


CMPC 


38 


COPXIp 


Cp BADDR 


COMPARE REPEAT 


CMPR 


45 


OPNDl* 


COPXIp Rp 








BADDR 





MISCELLANEOUS 



NAME 




MNEMONIC 


OP 


ARGUMENTS 


COMMUNICATE 




COMM 


33 


C0PX1 



LOAD COMMUNICATE REPLY 



LOCR 



*1 



OADOR 
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CONVERT 


CONV 


40 


C0PX1* 


DADDR 


MAKE PRESENT 


MAKP 


42 


C0PX1* 


DAODR 


HARDWARE MONITOR 


HMON 


43 


0PND1 
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ARITHMETIC OPERANDS AND INSTRUCTIONS 



In general* arithmetic operands can have any of the following 
formats : 

1 . Unsigned 4-8IT 
2. Unsigned 8-8IT 
3* Signed %-BIT (sign is MSD > 

4 . Signed 6-8IT (sign over MSO) 



Any restrictions concerning the types of operands permitted in an 
operation are specified under the description of the particular 
operation. 



All fields are addressed by pointing to the most significant bit of 
the most significant unit* which in the case of a signed field is 
the sign. 



All fields are considered to be comprised of decimal integers. 



The a bs elute value is stored if the receiving field is unsigned. 



Unsigned fields are considered positive. 



When signed format is specified for the receiving field for any 
arithmetic operation* the sign position is set to 1100 for a 
positive result and to 1101 for a negative result. 



A-8IT operands are interpreted in units of four bits. When a signed 
operand is specified* the sign is interpreted as a separate and 
leading (leftmost) 4-8IT unit which is not included in the 
statement of length. 



0-8IT operands are interpreted in units of eight bits. When a signed 
operand is specified* the sign is interpreted as being contained in 
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the leftmost four bits of the leftmost 8-8IT unit. 



The length of the operand field specifies the number of 4-BIT or 
8-BIT units. 



When 8-8IT units are specified for the receiving field of an 
arithmetic operation* the leftmost four bits of each 8-SIT unit* 
except the unit carrying a sign* is set to 1111 if EBCDIC or to 
0011 if ASCII. 



The value of an 8-BIT unit is carried in the rightmost four bits of 
the unit. Its value is as defined below for the 4-BIT unit. The 
leftmost four bits* except for a sign* are ignored. The value and 
sign interpretation of a 4-BIT unit is as follows: 



UNIT 


VALUE 


SIGN 


0000 


0 


4 


0001 


1 


♦ 


0010 


2 


* 


0011 


3 


4 


0100 


4 


4 


0101 


5 


4 


0110 


6 


* 


0111 


7 


4 


1000 


8 


4 


1001 


9 


4 


1010 


UNDEFINED 


4 


1011 


UNDEFINED 


4 


1100 


UNDEFINED 


4 - 


1101 


UNDEFINED 


€JT 


1110 


UNDEFINED 


4 


1111 


UNDEFINED 


4 



In addition and subtraction* results generated when the size of the 
result field is not sufficient to contain the result are not 
specified. When the result field is longer than the length of the 
result* leading zero units are stored. 



In three address add* three address subtract and in multiply* total 
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or partial overlap of the first two operands is permitted. Results 
generated when the result field totally or partially overlaps 
either of the operand fields are not specified* 



In two address add and subtract* total overlap is permitted. Results 
generated when the result field partially overlaps the first 
operand field are not specified. Note that total overlap implies 
that the two fields are identical. 



No overlap of operands or result fields is permitted in divide. 
Results generated under any condition of overlap are not specified. 
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ADD THREE ADDRESS 

*««»**<: 

* ADD * 
******* 



OP* 08 



Formats 



*************************** 
* ADO GPND1* COPXl* C0PX2 * 
******** **************** *** 



Fursct ion! 



Algebraically add an addend denoted by 0PND1 to an 
augend denoted by COPXi and store the sum in the field 
denoted by C0PX2* 
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SUBTRACT THREE ADDRESS 

****** * 

* SUB * 



OP: 10 



Formats 



*************************** 

* SUB 0PND1* 0PND2* C0PX1 * 

*************************** 



F unct ions 



Algebraically subtract a subtrahend denoted by 0PND1 
from a minuend denoted by 0PND2 and store the 
difference in the field denoted by COPX1- 
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* INC * 
******* 



OPS 02 



Formats 



★ *«rtt<r*** ******* *<&*** 

* INC 0PND1, C0PX1 * 
******************** 



Funct I on: 



Algebraically add an addend denoted by OPNDl to an 
augend denoted by C0PX1 and store the sum in the field 
denoted by COPXi. 
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SUBTRACT TWO ADORESS 

******* 

* DEC * 
******* 



OP: 09 



******************** 
* DEC 0PND1* C0PX1 * 
******************** 



Funct ions 



Algebraically subtract a subtrahend denoted by 0PND1 
from a minuend denoted by C0PX1 and store the 
difference in the field denoted by C0PX1. 
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MULTIPLY 

******** 

* MULT * 

* **** *** 



OP: II 

F ormat s 



* MULT OPNDl* COPXi* C0PX2 * 
**************************** 



Funct ions 



Algebraically multiply a multiplicand denoted by C0PX1 
by a multiplier denoted by OPNDi and store the product 
in the field denoted by C0PX2. 



The result field length is the sum of the lengths of 
the two operands and must be denoted by C0PX2. 



The result field will always be either signed 4-8IT 
format or unsigned 4-BIT format. 
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DIVIDE 

**«*«*« 

* DIV * 
******* 



OP: 12 



F or mat • 



* DIV 0PND1* C0PX1* C0PX2 * 



Funct ions 



Algebraically divide a dividend denoted by C0PX1 by a 
divisor denoted by 0PND1 and store the quotient in the 
field denoted by C0PX2. Store the remainder in the 
field denoted by C0PX1. 



The result field length is the difference of the 
lengths of the two operands and must be denoted by 
CQPX2. 



Results are not specified if the length of the 
dividend is not greater than the tenth of the divisor. 



If the absolute value of the divisor is not greater 
than the absolute value of an equivalent number of 
leading digits of the dividend* the result is 
undefined. 



Division by zero results in a fatal error communicate 
to the MCP. 
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The sign of the remainder is that of the 
d i vi dend . 



The dividend field will always be either si 
format or unsigned 4-8IT format* 



original 



gned A-BIT 
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DIVIDE SPECIAL 

***** *** 

* DIVS * 

* **** ** * 



OP: 16 

Formats 

lrAf*4rirt fr* 

* DIVS 0PND1 * C0PX1* C0PX2 * 
**************** ************ 

F unct i on: 



This operation is performed in exactly the same manner 
as the standard divide CDIV) operator; except that 
when a divisor equal to zero is encountered# an 
overflow toggle is set and processing is allowed to 
continue* The overflow toggle can be manipulated by 
the ”S0 F L ” and "BOFL" Separator s. 
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INCREMENT BY ONE 



******** 



* I NCI 



* 

* 



OP* 13 
F orraat s 

************** 
* I NCI C0PX1 * 
************** 

Funct ions 



Algebraically add the positive integer one to an 
augend denoted by C0PX1 and store the sum in the field 
specified by COPX1. 
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DECREMENT BY ONE 

********* 

* DEC 1 * 
**** ** ** 



OP: 1* 



Format i 



************** 
* DEC1 C0PX1 * 
************** 



Funct i oni 



Algebraically subtract the positive integer one from 
a minuend denoted by C0PX1 and store the difference in 
the field specified by C0PX1* 
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DATA MOVEMENT OPERANDS AND INSTRUCTIONS 



In general* fields involved in data movement operations can have any 
of the following formats: 



1* Unsigned 4-3IT 

2. Unsigned 8-BIT 

3. Signed 4-9IT Csign is M5D) 

4. Signed 8-BIT Csign over MSD) 



Any restrictions as to the type of fields permitted fn an operatic? 
are specified under the description of the particular operation™ 



See arithmetic operands and instructions for a description of th 
four types of fields™ 



Totally or partially overlapped fields are not permitted* unlesr- 
specifically specified by the description of the individual 
instruct! on* 
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MOVE ALPHANUMERIC 

******* 

* MVA * 
******* 



OP* 00 



F ormat : 



* MVA 0PND1* C0PX1 * 



Funct ion: 



Move 8-BIT or 4-81 T units from the source field 
denoted fay 0PN01 to the 8-BIT or 4-BIT destination 
field denoted by C0PX1. 



If the destination field is si gned* it receives either 
the sign of the source if the source is signed* or 
1100 if the source is unsigned. 



If the data type of the source field is 4-BIT and the 
data type of the destination field is 8-BIT* each 
4-BIT unit is moved to the destination with 1121 if 
EBCDIC or 0011 if ASCII moved to the leftmost four 
bits of each 8-BIT unit. 



If the data type of the source field is 8-8IT and the 
data type of the destination is 4-3IT* the rightmost 
four bits are moved. 



If the data type of the source field is the same as 
the data type of the destination fietd* each unit is 
moved unchanged to the destination. 
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If the destination length is greater in size than the 
source length* the destination field is filled in on 
the right with trailing spaces C0100 0000 if EBCDIC or 
0010 0000 if ASCII) if the destination type is 8-BIT) 
otherwise it is filled in on the right with zeros 
( 0000 ). 



If the destination length is lesser in size than the 
source length* the source data is truncated on the 
right. 



Overlapping operand fields are permitted if the data 
type of both fields is the same. It can be assumed 
that the source is moved 24 bits (six digits or three 
characters) at a time into the destination field and 
that the move is from left to right. 
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MOVE SPACES 

******* 

* MVS * 
******* 



OP: 15 

Formats 

* + **+*•&* ***** 
* MVS COPX1 * 

Funct Ions 



Fill the destination field denoted by C0PX1 with 
spaces (0100 0000 if EBCDIC or 0010 0000 if ASCII). 



The data type of the destination field is ignored and 
is assumed to be unsigned 8-BIT. 
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HOVE NUMERIC 

*** » *** 
* MVN * 

ft ftftft ftftft 



OP: 01 



Format s 



* MVN 0PND1# C0PX1 * 



F unct i on: 



Move 8-BIT or 4-8IT units from the source field 
denoted by 0PND1 to the 8-BIT or 4-BIT destination 
field denoted by C0PX1. 



If the destination field is signed# it receives either 
the sign of the source if the source is signed# or 
1100 if the source is unsigned. 



If the destination field is uns i gne d# the sign of the 
source is ignored. 



If the data type of the destination field is 8-3IT# 
the leftmost four bits of each 8-BIT unit# except for 
the sign position# if signed# are set to 1111 if 
EBCDIC or to 0011 if ASCII# regardless of the data 
type of the source field. 



If the data type of the destination field is 4-BIT# 
the leftmost four bits of each source 8-BIT unit are 
ignored and only the rightmost four bits are moved# if 
the source field is a 4-BIT field# each 4-8IT unit is 




3-19 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 
B1700 COBOL S-LANGUAGE 
P.So 2201 6729 



moved unchanged. 




If the destination length is greater in size than the 
source length# the destination field is filled in on 
the left with leading zeros of appropriate type (1111 
0000 if EBCDIC# 0011 0000 if ASCII or 0000 if 4-BIT). 




If the destination length is lesser in size than 
source length# the source data is truncated on 
left. 



the 
t he 



Note that a sign is placed in the leftmost four 
of a field# whether 4-BIT or 8-3IT. 



bits 









Overlapping operand fields are permitted if the data 
type of both fields is the same. It can be assumed 
that the source is moved 24 bits (six digits or three 
characters) at a time into the destination field and 
that the move is from left to right. 
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MOVE ZEROS 

******* 

* MVZ * 
** ***** 



OP: 22 



Formats 



************* 
* MVZ C0PX1 * 



Function: 



Fill the destination field denoted by C0PX1 with zeros 
of the appropriate type (1111 0000 if EBCDIC* 0011 
0000 if ASCII or 0000 if 4-BIT). 



If the destination field is signed* 1100 is placed 
into the sign position. 
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CONCATENATE 

******* 

* CAT * 
****** * 

OP: 32 

Format : 



******************************** *** 
* CAT N* C0PX1* OPNDO* ...* OPNDN * 
******** *************************** 



Funct ionJ 



Move each of the N*1 fields denoted by OPNDO through 
CPNDN* in the order specified.* into an output string 
starting at the field denoted by C0PX1- 



The number of source fields is specified by the 4-BIT 
binary value N. The value N ranging from 0000 to 1111 
is used to indicated 1 to 16 source fields. 



Each field is moved according to the rules specified 
for MOVE ALPHANUMERIC. 



If the destination length is greater in size than the 
combined source length* the destination field is 
filled in on the right with trailing spaces C0100 0000 
if EBCDIC or 0010 0000 if ASCII). 



If the destination length is lesser in size than the 
combined source lengths* the source data is truncated 
on the right. 
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vc ' 1 



/ 













** ****** 

* SMVN * 
******** 



**************** ************* 
* SMVN OPNDt * C0PX1* V* SCL * 
***************************** 



Funct ion? 



'V- 











If V equals 0/ perform a MOVE NUMERIC operation after 
first adding the scale factor to the field length of 
the source field and assuming that the added portion 
of the field is zeros on the right. The scale factor 
must not be greater than the destination field length. 



If V equals one* perform a HOVE NUMERIC operation 
r l > after first subtracting the scale factor from the 
field length of the source field. The scale factor 
must not be greater than the source field length. 

All rules specified for MOVE NUMERIC are applicable 
after adjustment by the scale factor. 



The container size for the scale factor is the same as 
the container size for the length of an operand 
(LEN8>. The length of V is one bit. 
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MOVE TRANSLATE 

******* 
* MVT * 

* r ***** * 



ops A 7 



F ormat i 



****** * ********* *** ***** *** 
* MVT 0PND1* C0PX1* C0PX2 * 
*************************** 



F unc t i on: 



Move 8-BIT units from the source field denoted by 
0PND1 to the destination field denoted by CGPX2* 
translating enroute. 



Translation is accomplished by using each 8-BIT source 
character* multiplied by eight* as an index into the 
translation table* denoted by CQPX1* to obtain the 
translated character. 



The data type of the source and table fields are 
ignored and are assumed to be unsigned 8-BIT, The 
destination field is also assumed to be unsigned* but 
may be A-BIT or 8-BIT, 



If the destination length is greater in size than the 
source length* the destination field is filled in on 
the right with trailing spaces (0100 0000 if EBCDIC* 
0010 0000 if ASCII or 0000 if 4-8ITJ. 



If the destination length is lesser is size than the 
source tength* the source data is truncated on the 
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Ids is permitted to allou 
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EXAMINE 

******** 
* EXAM * 
******** 



OPS 44 



Formats 



************* *********** ***************** 
* EXAM M* T* C0PX1* OPNDI* C0PX2* 0PND2 * 
**************** **************** ********* 



Funct ions 



Examine the operand defined by C0PX1* tallying and/or 
replacing a variable number of 8-BIT characters. The 
particular 8-BIT character to be tallied and/cr 
replaced is specified by OPNDI. The character to be 
used as the replacement character is specified by 
0PND2. The field into which the tally is stored is 
specified by C0PX2. 



The type of operation is specified by the 4-8IT 
parameter* T. If these four bits are identified* left 
to right* as Tl* T2* T3 and T4* then T is interpreted 
as followss 



T1T2 = 00 undefined 

01 tally T3T4 occurrences of the character 
specified by OPNDI 

10 replace T3T4 occurrences of the character 
specified by OPNDI 

11 tally and replace T3T4 occurrences of the 
character specified by OPNDI 

=00 all 

01 Call) leading 



T3T4 
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10 until first 

11 first 

NOTE; T1T2T3T4 = 0111 and 1111 not specified and 
results are undefined. 



The 0PND2 argument is not present when T1T2 = 01. 



The C0PX2 argument is not present when T1T2 = 10. 



The data type of the examined operand (COPX1) is 
assumed to be signed or unsigned 6-BIT. If it is 
signed* then the original sign. will be preserved by 
this operation. 



The data type of the examining operand* defined by 
QPND1* must be unsigned. Its length is assumed to be 
one. When 4-BIT format is specified* the operand is 
assumed to have the four bits 1111 if EBCDIC or 0011 
if ASCII appended to the left. 



The data type of the replacing operand* defined by 
0PND2* must be unsigned. Its length is assumed to be 
one. When 4-BIT format is specified* the leftmost four 
bits of the position replaced are set to 1111 if 
EBCOIC or 0011 if ASCII* and the rightmost four bits 
receive the four bits from the replacing source. When 
8-8IT format is specified* the position replaced 
receives all eight bits from the replacing source. 



The data type of the tally field defined by C0PX2 is 
assumed to be unsigned 4-BIT. Its length is assumed to 
be five. 



If the one bit parameter M equals zero* it denotes 
numeric items* and only the rightmost four bits of a 
character are used in the comparison* the leftmost 
four bits are ignored. If M equals one* alphanumeric 
items are denoted* and all eight bits of a character 
are used in comparing. 
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EDIT INSTRUCTIONS AND EDIT MICRO- OPERATORS 



No restrictions are placed on the data type of the source field of 
an edit operation. 



The data type of the destination field of an edit operation must be 
unsigned 8-BIT. 



If the destination length is greater in size than the source length# 
the source data is assumed to have leading zero fill on the left. 



If the destination length is lesser in size than the source length# 
the source data is truncated on the left. 



The operation is terminated by an edit micro-operator and not by 
exhaustion of either the source or destination fields. 




3-20 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 
B1700 COBOL S-LANGUAGE 
P.S- 2201 6729 



EDIT 

******** 

* EDIT * 
***** *** 



OP: 17 

Format : 



*r fc tc ft * fi fe 

* EDIT 0PND1 * C0PX1* DAD DR * 
**************************** 



F unc t i on: 



Move data from the source field* denoted by 0PND1* to 
the destination field* denoted by C0PX1 * under the 
control of the micro-operator string contained at the 
location denoted by the DADDR. 



The argument DADDR 
specifies th 
string 
containe 



is an unsigned bin 
displacement of th 
the data segment 



e digit 
relative to 
r size of DAODR is DISPB. 



ary value which 
e micro-operator 
zero base- The 
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EDIT WITH EXPLICIT MASK 

******** 

* EDTE * 

******** 



OP: 21 



Formats 



******** ******************* 

* EDTE 0PND1 * C0PX1* MASK * 
******** ******************* 



Funct ion: 



Move data from the source field denoted by QPND1 to 
the destination field denoted by C0PX1 under the 
control of the mi cro-oper ator string immediately 
following C0PX1. The format of the explicit 
micro-operator string is the same as a literal and is 
as follows: 



LTYPE LLGTH1 LLGTH2 MIC R0- OPERATOR STRING 
(21 (3) (8) (variable) 

i I i 

I I I 

i I Present if LLGTH equals zero 

! 1 

I Length of the micro-operator string in 
8 8-BIT units. If length is greater than or 
I equal to eight units* the length is encoded 
i in LLGTH2 and LLGTH 1 is set to zero. 

1 

01 * 



Unsigned 8-BIT format 
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The edit micro-operators used in an edit instruction are: 
OPERATOR MNEMONIC OPERATION 



0000 


R 


MVD 


0 001 


R 


five 


0010 


R 


MVS 


0011 


R 


FIL 


0100 


N 


SRD 


0101 


T 


INU 


0110 


T 


INM 


0111 


T 


INS 


1000 


T 


INF 


1001 


T 


EFM 


1010 


0000 


ENZ 


1010 


0001 


EOM 


1010 


0010 


SZS 


1010 


0011 


CCP 


OTHERS 





MOVE DIGITS 

MOVE CHARACTERS 

MOVE SUPPRESS 

FILL SUPPRESS 

SKIP REVERSE DESTINATION 

INSERT UNCONDITIONALLY 

INSERT ON MINUS 

INSERT SUPPRESS 

INSERT FLOAT 

END FLOAT MODE 

END NON-ZERO 

END OF MASK 

START ZERO SUPPRESS 

COMPLEMENT CHECK PROTECT 

UNDEFINED 



"R" indicates a 4-BIT binary value used as a repeat count. The value 
0000 represents no repeat* do it once* 



"N" indicates a 4-BIT binary value used to skip over a number of 
destination 8-BIT units. The value 0000 represents no skip. 



*T W indicates a 4 -BIT binary value which is? 

1) used to index into a table of editing constants 

2) used to indicate a conditional selection between 
two table constants 

3) used to indicate an editing constant in tine 
with the edit-operator string. 

The next edit-operator follows the constant. 
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The following table indicates the normal table editing constants as 
well as the conditional and unconditional selection of constants 
associated with the value "T". 



EDITING CONSTANTS 



T 


TABLE ENTRY 
EBCDIC 


MNEMONIC 


UNCONDITIONAL OR 
CONDITIONAL CONSTANT 


0000 




PLU 




0001 


«t w n 


MIN 




0010 




AST 




0011 


» w 

• 


DPT 




0100 


m P m 


CMA 




0101 




CUR 




0110 




ZR0 




0111 


VI *t 


BLK 




1000 




SPM 


EITHER ENTRY 0 OR 1 


1001 




SBM 


EITHER ENTRY 7 OR 1 


1010 




LIT 


IN-LINE 8-BIT CONSTANT 



Associated with the edit instructions are three toggles denoted as 
"S° for sign* **Z " for zero suppress and "P" for check protect. 
Initially the *Z*' and the "P" toggles are assumed to be set to the 
zero state. They are set and reset as specified by the description 
of the individual micro-operators. The "S" toggle is set to zero if 
the source field sign is positive and to one otherwise. Unsigned 
fields are considered positive. 

The EDIT MICRO-OPERATORS are explained individually in the following 
sect ion* 



MOVE DIGIT 



Set "Z" to "1"# ending the zero suppress state. Move an appropriate 
unit (4-BIT digit or 8-BIT character) from the source field to the 
destination field. If a 4-BIT unit is moved, append the four bits 
1111 to the left before storing in the destination. If an 8-BIT 
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unit is moved* the four bits 1111 are substituted for the leftmost 
four bits of the 8-BIT unit. 



MOVE CHARACTER 



Set "Z" to "l"# ending the zero suppress state. Move an appropriate 
unit (4-BIT digit or 8-BIT character) from the source field to the 
destination field. If a 4-BIT unit is moved* append the four bits 
1111 to the left before storing in the destination. If an 8-BIT 
unit is moved* it is moved unchanged. 



MOVE SUPPRESS 



The micro-operator "HOVE DIGIT** is performed if the 4-BIT unit* or 
the rightmost four bits of the 8-BIT unit* of the source field is 
not equal to 0000. 



If the appropriate four bits of the source field unit are equal to 
0000* the suppress toggle ”?* is inspected. If ** Z" equals "l”* 
indicating non-suppress mode* the micro-operator -MOVE DIGIT” is 
performed. If the suppress toggle "Z" equals ”0”* the check protect 
toggle *P" is inspected. If ”P" = ”0”* indicating non-check protect 
mode* move the table entry containing the 8-BIT code for blank to 
the destination field. If "P" = "1"* move the table entry 
containing the 8-BIT code for asterisk to the destination field. 



SUMMARY 







SOURCE 


NOT = 0 


MOVE 


Z = 1 




SOURCE 


= 0 


MOVE 


z=o 


P = 0 


SOURCE 


= 0 


MOVE 


z=o 


P=1 


SOURCE 


= 0 


MOVE 



DIGIT 

DIGIT 

TABLE ENTRY 7 (BLANK) 
TABLE ENTRY 2 (ASTERISK) 




3-3 3 

BURROUGHS CORPORATION 
COMPUTER SYSTEHS GROUP 
SANTA BARBARA PLANT 



FILL SUPPRESS 



jf -p® = "0" * indicating non-check protect mode* move the table 
entry containing the 8-BIT code for blank to the destination field, 
jf "p» = "1", move the table entry containing the 8-SIT code for 
asterisk to the destination field. 



SUMMARY 



P = 0 MOVE TABLE ENTRY 7 (BLANK) 

P = 1 MOVE TABLE ENTRY 2 CASTERISK) 



SKIP REVERSE DESTINATION 



Adjust the address pointer of the destination field to skip backward 
(lower address) **N® 8-BIT units. 



INSERT UNCONDITIONALLY 



Move the table entry W T" as indicated below to the destination 
field. 





T=0...7 


MOVE 


TABLE 


ENTRY 


T 




s=o 


T= 8 


MOVE 


TABLE 


ENTRY 


0 


(PLUS) 


S=1 


T=8 


MOVE 


TABLE 


ENTRY 


1 


(MINUS) 


s=o 


T = 9 


MOVE 


TABLE 


ENTRY 


7 


(BLANK) 


s=.l 


T=9 


MOVE 


TABLE 


ENTRY 


1 


(MINUS) 




T=10 


MOVE 


IN-LINE TABLE 


ENTRY 



INSERT ON MINUS 
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Move the table entry *1" as Indicated below to the destination 
field. 



* GO 
II 
HA 


P=0 


T = 0 ...7 


MOVE 

MOVE 


TABLE ENTRY T 
TABLE ENTRY 7 


(BLANK) 


* 


P=1 




MOVE 


TABLE ENTRY 2 


(ASTERISK) 


S=1 




T = 8 


MOVE 


TABLE ENTRY 1 


(MINUS) 


S= 1 




1 = 9 


MOVE 


TABLE ENTRY 1 


(MINUS) 


S=1 




1 = 10 


MOVE 


IN-LINE TABLE 


ENTRY 



*; S = 0 or only source digits/characters equal to zero (minus zero) 
have been moved. 



INSERT SUPPRESS 



Mov e 


t he 


table 


entry "T” 


as indicated 


below 


t 0 


the destination 


Z=1 






T=0 .. • 7 


MOVE 


TABLE 


ENTRY 


T 




Z=0 


P=0 






MOVE 


TABLE 


ENTRY 


7 


(BLANK) 


z=o 


P=1 






MOVE 


TA8LE 


ENTRY 


2 


(ASTERISK ) 


Z=1 




S=0 


T = 8 


MOVE 


TABLE 


ENTRY 


0 


(PLUS) 


z=i 




S = 1 


T= 8 


MOVE 


TABLE 


ENTRY 


1 


( MI NUS) 


Z = 1 




s=o 


T = 9 


MOVE 


TABLE 


ENTRY 


7 


(BLANK) 


Z = 1 




S = 1 


T = 9 


MOVE 


TABLE 


ENTRY 


1 


(MINUS) 


Z=1 






T = 10 


MOVE 


IN-LINE TABLE 


ENTRY 



INSERT FLOAT 



Move the table entry ”T" and/or perform the mi cr o-operator 
DIGIT” as indicated below. 



field. 



MOVE 



Z=1 

Z=0 SOURCE 
Z=0 SOURCE 
Z=0 SOURCE 
Z=0 SOURCE 
Z=0 SOURCE 
Z=0 SOURCE 
Z=0 SOURCE 
Z=0 SOURCE 



= 0 P=0 
= 0 P=1 

N 0 T = 0 T=0 . « 7 
N0T=0 T=8 S=0 
NOT=0 T=8 S=1 
N0T=0 T=9 S=0 
N0T=0 1=9 S=1 
NO T = 0 T=10 



MOVE DIGIT 

MOVE TABLE ENTRY 7 (BLANK) 

MOVE TABLE ENTRY 2 (ASTERISK) 

MOVE TABLE ENTRY T. THEN MOVE DIGIT 
MOVE TABLE ENTRY 0 (PLUS) THEN MOVE DIGIT 
MOVE TABLE ENTRY 1 (MINUS) THEN MOVE DIGIT 

MOVE TABLE ENTRY 7 (BLANK) THEN MOVE DIGIT 

MOVE TABLE ENTRY 1 (MINUS) THEN MOVE DIGIT 

MOVE IN-LINE TABLE ENTRY. THEN MOVE DIGIT 
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END FLOAT MODE 



Mov e 


the 


table entry 


*T* as indicated below 


to t he 


field. 








1 = 0 




If 

o 

• 

• 

• 

•N 


MOVE 


TABLE ENTRY T 




1=0 


S=0 


T = 8 


MOVE 


TABLE ENTRY 0 


( PLUS) 


1=0 


S=I 


T = 8 


MOVE 


TABLE ENTRY 1 


< MI NUS > 


1 = 0 


S=0 


T = 9 


MOVE 


TABLE ENTRY 7 


(BLANK) 


1=0 


S=1 


T = 9 


MOVE 


TABLE ENTRY 1 


( MI NUS) 


1=0 




T = 10 


MOVE 


IN-LINE TABLE 


ENTRY 


1=1 


NO 


OPERATION 








END 


NON- 


ZERO 









dest i nat i on 



Terminate the micro-operator operations if any non-zero source 
char acter/di g i t has been moved? otherwise continue with the next 
in-line operator. 



END OF MASK 



Terminate the micro-operator operations. 



START ZERO SUPPRESS 



Set m T* to the "0" state. 



COMPLEMENT CHECK PROTECT 
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M ICR FORMAT 

* MICF * 
******** 



OP: 48 



F ormat s 



* MICF COPX1* C0PX2 



F unc t i on! 



Format the data from the source field denoted by COPX1 
into the destination field denoted by C0PX2- 



The data type of both the source and the destination 
fields is assumed to be unsigned 8-8IT. 



The field length of the destination MODULO 20 must 
equal zero. The destination field is considered to be 
composed of a number of 20 character subfields. 



Data movement is right to left beginning with the 
rightmost character of the source field and beginning 
with the rightmost character position of the 
destination field. 



In the discussion that follows* the following 
definitions apply! 

1. Transfer characters are characters that are 
automatically transferred from the source fietd 
into the current destination subfield. They never 
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occupy the rightmost control character position of 
a destination subfield. They are the numeric "0" 
through "9" and the HYPHEN The HYPHEN is not 

expected to occur for OCR input. 

2. Defined control characters are characters that 

cause some specific action to be taken* depending 
on the character. They ares the END-OF-DOCUMENT 
"•"* the MICR CANT-READ and the OCR CANT-READ 

33F2 . 

3. Default control characters are characters other 

than transfer and defined control characters. They 
are expected to be* but will not be limited to* 
the MICR AMOUNT "A'"* TRANSIT "2" and ON-US and 

the OCR HOOK "<"* FORK "=”* CHAIR ">”* VERTICAL 
BAR "l w * BLANK 2402 and PLUS 



Operation is as follows: 

1. Begin formatting into a subfietd by fetching a 
source field character, unless the source field is 
exhausted* and then proceeding to step 1A. 

A. If the source field is exhausted* assume an 
END- OF-QOCUKENT (*> character and proceed to 
step IB. 

B- If the source field character is an 
END-OF-DOCUMENT character* move it to the 
rightmost position of the current subfield* 

blank-fill the rest of the destination field 
and then terminate the operation. 

C. If the source field character is other than a 
default control or END-OF-DOCUMENT character* 
move a blank to the rightmost position of the 
current subfietd* then move the source 
character and proceed to step 2A. 

D. If the source field character is a default 
control character* move it to the rightmost 
position of the current subfietd and then 
proceed to step 2A. 
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2* Continue formatting into the current subfield by 

fetching a new source character and then 

proceeding to step 2A. 

A. If the source field is exhausted# blank-fill 
the rest of the current subfield# assume an 
END-OF-DOCUMENT source character and proceed 
to step IB. 

B. If the source field character is an 

ENO-OF-OOCUt'ENT character# blank-fill the rest 
of the current subfietd# save the source field 
character and proceed to step IB. 

C. If the source field character is other than a 
default control or END-OF-DOCUMENT character# 
store the character in the destination and 
proceed to step 2A. 

D. If the source field character is a default 

control character that is equal to the 

character in the rightmost position of the 
current subfield# move it to the next position 
of the current subfield# blank-fill the rest 
of the current subfield and then proceed to 
step 1A. 

E. If the source field character is a default 
control character# but it is not equal to the 
character in the rightmost position of the 
current subfield# the rest of the current 
subfield is blank-filled and the control 
character is used in step ID# to which we now 
proceed. 



notes; 



1 If any attempt is made to exceed the size of any 
subfield or of the entire destination field# the 
overflow toggle is set to one# the operation is 
terminated and the contents of the destination 
field are undefined. 
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2. If any individual sub field contains a CANT- RE AD 
("*" or "33F3> character* then the high order 
(leftmost) position of the subfietd wilt be set to 
1101 0001* otherwise* it will be set to a blank 

(0100 0000 ). 




3-41 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 
B1700 COBOL S-LANGUAGE 
P.S. 2201 6729 



M ICR EDIT 

**** * *** 

* MICE * 
**** »***.- 



OP: 49 



Formats 



* MICE C0PX1* C0PX2* C0PX3 * 



Funct ion! 



Move data from the source field denoted by C0PX1 to 
the destination field denoted by C0PX2 deleting all 
characters except numeric characters C"0” through ”9" 3 
and CANT-READ characters ("*" and 33F33. 



The moved characters are right Justified in the 
destination field and zero filled on the left* if 
necessary* to fill the remaining destination area. If 
the destination field is lesser in size than the moved 
data* the source data is truncated on the left. 



A decimal count of all numeric characters moved is 
provided in the special COBOL register "TALLY" denoted 
by C0PX3 . 



The data type of the source field must be unsigned 
8-BIT* The data type of the destination field must be 
unsigned 4-BIT or 8-BIT. The data type of the "TALLY" 
field must be unsigned 4-BIT and its length is assumed 
to be five. 
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BRANCHING OPERANDS AND INSTRUCTIONS 



A branch address argument "BA DDR ” has the following format: 



DISPLACEMENT BTYPE SEGMENT NUMBER 
(BDISP3) C 1 > (7) 

---------- — - -* - -•*• ----- -- ------ 

I I 

* present if BTYPE = i 

» 

1 

0: Relative to the current code 

segment base C i ntrasegment branch! 

1 : Relative to a new code segment base 
C intersegment branch) 



Displacement is an unsigned binary value which specifies the bit 
displacement of an instruction relative to a segment base. The 
container size of the displacement and BTYPE combined is a program 
parameter CBDISPB1). 
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BRANCH UNCONDITIONALLY 

******* 
* BUN * 
******* 



OP: BUN 



F or mat ~ 




Funct ion: 



Obtain the next instruction from the location 
specified by BADDR. 
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BRANCH ON OVERFLOW 

******** 

* BOFL * 
******** 



OP: 23 

Format i 



***************** 

* BOFL V* BADDR * 
***************** 

F unc t i on: 



If the overflow toggle equal 
address C8ADDR) given in 
otherwise control is passed 
i nstruc t i on. 



s V* a transfer to the 
the instruction occurs* 
to the next sequential 



The overflow toggle is unchanged. The length of V is 
one bit. 
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SET OVERFLOW TOGGLE 

******** 
* SOFL * 
******** 



OPS 07 



Formats 



********** 
* SOFL V * 
********** 



Functions 



NOTE 



Set the overf 


low toggle to V. 








The length of 


V is one bit* 








s The overf 


low toggle is set 


to one 


if a "DIVIDE 


BY 


ZERO" is 


encountered in 


t he 


DIVIDE SPECIAL 


S-opera tor 


or if a field overflow 


is attempted 


in 


the M ICR f 


ormat S-operator. 
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PERFORM ENTER 

* PERF * 
******** 



OP: 06 

F ormat : 

* PERF K* BADDR * 

Funct ions 

Create a stack entry with the follouing formats 



DISPLACEMENT SEGMENT NO. K 

< 24 ) ( 7 ) (8) 



Insert a displacement value* relative to the active 
code segment base and pointing to the next sequential 
S-i nstructi on* into the stack. 

Insert the current code segment number into the stack- 
insert the value of K from the instruction into the 
Stack- 

Adjust the stack pointer to point to the next possible 
entry. 



Obtain the next instruction from the location 
specified by BADDR. 
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PERFORM EXIT 

t*«***«* 

* PXIT * 
**« **»*« 



OP: 34 

Format - 



********** 
* PXIT K * 
********** 



Funct ion- 



C om 


pare 


the 


K c 


ontai 


ned i 


n the 


i 


nstr uc 


ti 


on 


t 


o 


t 


he 




K 


i n 


the 


cur 


rent 


St 


ack e 


ntry 


and 


if 




unequa 


t 


pr 


oc 


ee 


d 


t 


o 


t 


he 


nex 


t in- 


tine 


s- 


i nstr 


uctio 


n. ] 


[f 


e 


qual »• 


ad 


iu 


St 


t 


h 


e 


s 


t a 


ck 


poi 


nter 


to 


poi 


nt to 


the 


pr ev i ou 


s en tr 


Y 


an 


d 


ob 


t 


a i 


n 


t 


he 


nex 


t s- 


i nst 


rue 


t i on 


from 


the 


i n 


f 


oruati 


on 


c 


on 


ta 


i 


ne 


d 




in 


the 


remo 


ved 


stack en 


try. 
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ENTER 

******* 

* NTR * 
******* 



OP: 18 



F ormat : 



************* 
* NTR BA DDR * 
************* 



Funct ion: 



Sane function as ”P ERF" . K is assumed equal to zero. 
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EXIT 

******* 

* XI T * 
******* 



Op: 19 



F or mat ’ 



******* 

* XI T * 
******* 



Funct ion: 



Same function as "PXIT". K is assumed equal to zero. 
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GO TO DEPENDING 

******** 

* GOTO * 
******** 



OP: 39 

Format : 

******** ******************** ************ 
* GOTD C0PX1* L* DBADDRO* ...» DBADDRL * 
**************************************** 

Funct ions 



C om 


pare 


the 


ten bit 


bin; 


ary 


valu 


e L 


with 


t he 


var i ab 


le 


spe 


c 


i f i ed 


by 


C0PX1. 


The i 


/er 


i ab le 


i s 


first 


CO 


nverted 


to 


a b 


i 


nary 


va l 


ue» MODU 


LO 2 


to 


the 


24th 


powe 


r • 






If 




the b 


i na 


ry value 


of the 


var i 


able 


is l 


ess 


than ze 


rc 


or 




gr ea 


ter 


than L* 


the 


ne 


xt in 


st ru 


ct i on 


i s 


obtain 


ed 


fro 


m 


the 


location s 


peci J 


fie 


d by 


DBADDR 0. 


Not 


e that t 


he 


var 


i 


able 


can 


be sign 


ed. 
















If 




the 


bin 


ary valu 


e of 


th 


e v ar 


i abl 


e is 


i n 


the ran 


ge 



zero through L* it is used as an index to select from 
the list of DBADDR’s the appropriate OBADDR to be used 
to obtain the next instruction. 



DBADDR and BADDR have the same format with the 
exception that DBADDR will always contain the segment 
number. Atthough segment number is unneccessary for 
those DBADDR's with BTYPE equal to zero* in order to 
index into the list of DBADDR * s # all of the DBADDR*s 
must be of equal length. The container size of DBADDR 
is BDISP81 ♦ 7. 
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ALTERED GO TO PARAGRAPH 

****** ** 

* GPAR * 

******** 



OP: 35 

Format! 

************** 
* GPAR DADDR * 
************** 

Funct ion! 



Obtain the next instruction from the location 
specified by the address "ACON". 



The 


address constant 


"ACON" has the same 


format 


as a 


BADDR 


• 








The 


argument DADDR is 


an unsigned binary 


value 


which 


speci 


ties the digit 


displacement of 


the 


"ACON" 



relative to the data segment zero base. 



The container size of DADDR 



is DISPB. 
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ALTER 

******** 

* ALTR * 
******** 



OP: 36 

F ormati 



******************** 
* ALTR D ADDR j> ACON * 
******************** 



F unct Ions 



Copy the address constant "ACON" into the data area 
specified by the argument DADDR. 



The address constant "ACON" has the same format as a 
BADDR. 



The argufiient DA DDR Is an unsigned bin ary value 
specifies the digit displacement of the 
relative to the data segment zero base. 



which 

"ACON" 



The container size of DADDR is DISPB 
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CONDITIONAL 8RANCH OPERANDS AND INSTRUCTIONS 



If the condition "A (R) B" is true a transfer 
given in the instruction occurs# otherwise co 
next sequential instruction. The relation 
follows: 



to the address CBADDR) 
ntrol is passed to the 
£R> is defi ned as 



000 UNDEFINED 

001 GTR 

010 LSS 

011 NEQ 

100 EQL 

101 GEQ 

110 LEQ 

111 UNDEFINED 



Overlap of fields is 
the instruction. If 
assumed field is the 



permitted. "A" is the first 
an instruction has only one 
*A" field. 



operand denoted in 
operand# then the 
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COMPARE ALPHANUMERIC 



* C MPA * 
******** 



OPS 04 



Formats 



* C MPA 0PND1 * C0PX1* R* BADDR * 



Funct ions 



Compare the two operand fields according to their 
binary values. 



The comparison is performed left to right with any 
shorter operand assumed to be right-filled with blank 
characters (0100 0000 if EBCDIC or 0010 0000 if 

ASCII1. 



The fields are considered equal when the equal size 
portions are equal and the longer (if one is longer) 
field has trailing blanks. 



8-BIT data format is assumed for both fields with no 
checking to verify otherwise. Signed fields have their 
most significant four bits# i.e.* their sign# modified 
to the appropriate numeric zone (1111 for EBCDIC* 0011 
for ASCII) before being compared. This modification is 
not permanent and is done so that sign will not affect 
the result of an alphanumeric comparison. 
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COMPARE NUMERIC 

******** 
* CMPN * 



OP: 05 

Format J 



************************ 
* CMPN 0PND1* C0PX1* R* 
************************ 



******* 

BADDR * 
******* 



Functions 



Compare the two operand fields according to the 
algebraic values* considering the two fields to be 
comprised of decimal integers. 



When the field sizes are different* the longer is 
tested for leading zeros {0000J. There is no 

restriction as to data type. In comparing an 8-BIT 
character only the rightmost four bits of the 

character are considered* the other bits are ignored. 



Two fields of all zeros are equal regardless of sign. 

Unsigned fields are considered positive. Sign 
conventions are the same as for arithmetic operands. 

Results generated by invalid digit values are 
undefined. 
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COMPARE FOR ZEROS 

******** 

* CMPZ * 
******** 



OP: 27 



F or mat t 



************************ 
* CMPZ C0PX1* R# BADDR * 
************************ 



Funct ions 



Compare two operand fields according to their 
algebraic values* assuming the first field to be 
comprised of all zeros (0000). 



There is no restriction as to data type. In comparing 
an 8-BIT character only the rightmost four bits of the 
character are considered. The other bits are ignored. 



Two fietds of alt zeros are equal regardless of sign. 



Unsigned fields are considered positive. Sign 
conventions are the same as for arithmetic operands. 



Results generated by invalid digit values are 
undefined. 
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COMPARE FOR SPACES 

******** 
* CMPS * 



Op: 37 

F or mat : 

************************ 

* CMPS COPX1, R, BADDR * 



Fu net ion: 



Compare two operand fields according to their binary 
values* assuming the first field to be comprised of 
all spaces C0100 0000 if EBCDIC or 0010 0000 if 
ASCII). 



The comparison is performed left to right. 



Unsigned 8-BIT format is assumed with no checking to 
verify otherwise. 




3-5 S 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 
B1700 COBOL S-LANGUAGE 
P.S. 2201 6729 



COMPARE FOR CLASS 

******** 
* CMPC * 
******** 



OP: 38 

Format? 



************************ 

* CMPC C0PX1* C* BADDR * 
************************ 



F unctions 



Compare the operand field and determine whether the 
field iss 



C=00 COMPLETELY ALPHABETIC 
01 COMPLETELY NUMERIC 

10 NOT COMPLETELY ALPHABETIC 

11 NOT COMPLETELY NUMERIC 



If the condition being tested is true* a transfer to 
the address BADDR given in the instruction occurs* 
otherwise control is passed to the next sequential 
i nstruct i on. 



In the alphabetic test* each character is 
range-checked for 1100 0001 through 1100 1001* 1101 
0001 through 1101 1001* 1110 0010 through 1110 1001 
and for 0100 0000. Unsigned 8-BIT format is assumed 
with no checking to verify otherwise. 



In the numeric test each character is range-checked 
for 1111 0000 through 1111 1001. Signed or unsigned 
8-BIT forma t is permitted. The four bits in the sign 
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position of a signed 8-BIT field are ignored- The sign 
position is the leftmost four bits of the most 
significant character* 
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COMPARE REPEAT 

******** 

* CMPR * 
******** 



OP: 45 

Formats 

******************************* 
* CMPR 0PN01 * C0PX1* R* BADDR * 
******************************* 

F unct ions 



Compare the two operand fields according to their 
binary value* 



Comparison proceeds from left to right. 



The field lengths are considered equal by repeating 
OPND1 • 



Both fields are assumed to have unsigned 8-BIT data 
type. 

The size of OPND1 must divide evenly into the size of 
COPXi; otherwise* the results of the compare may be 
erroneous. 
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COMMUNICATE 

******** 

* COMM * 
******** 

OP: 33 



Format i 



************** 
* COMM COPX1 * 
************** 



F unc t i on: 



Move the length and address fields from the CQPX1 
entry to the RS. COMMUNICATE. MSG. PTR field located in 
this program's RS. NUCLEUS* converting them enroute. 
The origin field is unchanged. 



The length is converted from a digit or character 
length to a bit length. The address is stored as an 
absolute bit address. 
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LOAO COMMUNICATE REPLY 

******** 
* LDCR * 



OP: 41 



F ormat : 



************** 
* LDCR DADDR * 
************** 



Funct i ons 



Move the last 24 bits of information from the RS. REPLY 
area of the RS. NUCLEUS to the location specified by 
DADDR. 



See * MAKE PRESENT* for definition of DADDR. 




3-63 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



COMPANY CONFIDENTIAL 
B1700 COBOL S-LANGUAGE 
P.S. 2201 6729 



CONVERT 

******** 
* CONV * 
******** 



OP: AO 

Formats 



*t*«r*t******lr*t*«<f** 

* CONV COPXi DADDR * 



Funct ion: 



Convert the ope 
value to an unsi 
or zero filling 
result at the toe 



The operand must 
8-BIT units. 



ran 


d den 


ot 


ed by 


COP 


XI from 


a 


decimal 


gne 


d 24 


bi 


t bin. 


ary 


value* 


tr 


uncating 


on 


the 


le 


ft if 


nec 


essary. 


Pi 


ace the 


at f 


on sp 


ec 


i f i ed 


by 


DADDR. 






be 


ei th 


or 


uns i gned 


4-BIT o 


r 


uns i gned 



See *MAKE PRESENT* for definition of DADDR 
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MAKE PRESENT 

* MAKP * 

******** 



OP s 42 
F ormat s 



****** 
* MAKP 
****** 



*************** 

C0PX1* DA DDR * 
*************** 



F unc t i on s 



Load the data segment specified by C0PX1 
base relative address of the data area 
C0PX1 into the 24 bit location specified 



and place the 
specified by 
by DADDR* 



DADDR is an unsigned binary value which specifies a 
digit displacement from the data segment zero base. 

The container size of DADDR is DISPB. 
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HARDWARE MONITOR 

******** 

* HMON * 
******** 



OP: 43 

Formats 

************** 
* HMON 0PND1 * 



F unc t i or»s 



The low order eight bits of the field described by 
0PND1 are used as the input to the monitor 
raicr o-operator described in the following product 
specifications: 

M-Metnory Processor #1913 1747 
S-Memory Processor #2201 6760 



The length of the field described by 0PND1 must be 
greater than or equal to eight bits. 
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